home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / others / nonlin25.zip / POSITION.NLR < prev    next >
Text File  |  1993-06-29  |  469b  |  16 lines
  1. Title Find Position of Object Using Direction from Observers
  2. Register            ! Please register your use
  3. Variable Xo            ! X position of observer
  4. Variable Yo            ! Y position of observer
  5. Variable Dir            ! Direction to object (compass degrees)
  6. Parameter Xp            ! X position of object
  7. Parameter Yp            ! Y position of object
  8. Function abs(tan(rad(90-Dir))*Xp - Yp + Yo - tan(rad(90-dir))*Xo) / ;
  9.         sqrt(tan(rad(90-dir))^2 + 1)
  10. Data
  11. 1 7 108
  12. 2 5 064
  13. 1 2 037
  14. 3 1 011
  15. 5 3 341
  16.